home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xsizehints.t < prev    next >
Text File  |  1990-06-01  |  2KB  |  43 lines
  1. (herald xsizehints (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XSIZEHINTS) (CONS 'XSIZEHINTSP (MAKE-BYTEV 60)))
  3. (DEFINE (XSIZEHINTS-FLAGS X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 0))
  4. (DEFINE (XSIZEHINTS-FLAGS! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 0 Y))
  5. (DEFINE (XSIZEHINTS-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 4))
  6. (DEFINE (XSIZEHINTS-X! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 4 Y))
  7. (DEFINE (XSIZEHINTS-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 8))
  8. (DEFINE (XSIZEHINTS-Y! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 8 Y))
  9. (DEFINE (XSIZEHINTS-WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 12))
  10. (DEFINE (XSIZEHINTS-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 12 Y))
  11. (DEFINE (XSIZEHINTS-HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 16))
  12. (DEFINE (XSIZEHINTS-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 16 Y))
  13. (DEFINE (XSIZEHINTS-MIN_WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 20))
  14. (DEFINE (XSIZEHINTS-MIN_WIDTH! X Y)
  15.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 20 Y))
  16. (DEFINE (XSIZEHINTS-MIN_HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 24))
  17. (DEFINE (XSIZEHINTS-MIN_HEIGHT! X Y)
  18.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 24 Y))
  19. (DEFINE (XSIZEHINTS-MAX_WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 28))
  20. (DEFINE (XSIZEHINTS-MAX_WIDTH! X Y)
  21.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 28 Y))
  22. (DEFINE (XSIZEHINTS-MAX_HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 32))
  23. (DEFINE (XSIZEHINTS-MAX_HEIGHT! X Y)
  24.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 32 Y))
  25. (DEFINE (XSIZEHINTS-WIDTH_INC X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 36))
  26. (DEFINE (XSIZEHINTS-WIDTH_INC! X Y)
  27.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 36 Y))
  28. (DEFINE (XSIZEHINTS-HEIGHT_INC X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 40))
  29. (DEFINE (XSIZEHINTS-HEIGHT_INC! X Y)
  30.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 40 Y))
  31. (DEFINE (XSIZEHINTS-MIN_ASPECT-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 44))
  32. (DEFINE (XSIZEHINTS-MIN_ASPECT-X! X Y)
  33.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 44 Y))
  34. (DEFINE (XSIZEHINTS-MIN_ASPECT-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 48))
  35. (DEFINE (XSIZEHINTS-MIN_ASPECT-Y! X Y)
  36.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 48 Y))
  37. (DEFINE (XSIZEHINTS-MAX_ASPECT-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 52))
  38. (DEFINE (XSIZEHINTS-MAX_ASPECT-X! X Y)
  39.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 52 Y))
  40. (DEFINE (XSIZEHINTS-MAX_ASPECT-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 56))
  41. (DEFINE (XSIZEHINTS-MAX_ASPECT-Y! X Y)
  42.         (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 56 Y))
  43.